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INTRODUCTION 


This Mathematics Set of the Hewlett-Packard Computer Curriculum Series consists 
of a set of a Student Lab Book and a corresponding Teacher’s Advisor. It was 
designed to help meet the need for computer-oriented problems in mathematics, 
providing students an opportunity to use a computer as a problem solving tool 
or a modeling device within a particular subject matter area. 





The materials are designed for flexible use as desired by the individual instructor. 
The material and exercises in this unit are intended as an “‘enrichment”’ experience 
in the field of number sets. The unit begins with a section on integers, with exer- 
cises involving common operations which are easily performed with a computer. 
The Euclidean Algorithm and the “Sieve of Eratosthenes”’ are presented as alterna- 
tives to exhaustive search routines for finding greatest common divisors and prime 
numbers, respectively. The second section deals with rational numbers, with exer- 
cises involving denumerability and forming rational numbers from given integer 
sets. The final section introduces irrational numbers; in particular, methods are 
derived for computing am and finding the rth root of a number. Obviously, the 
unit is not intended to be a complete study of number sets; instead, each discus- 
sion is self-contained, so the concepts can be studied independently and in any 
sequence. Thus, the material can be used to supplement and enrich your curricu- 
lum in any fashion you choose. 


The mathematical concepts needed for each exercise are briefly reviewed, but you 
may want your students to study these in greater detail before attempting the 
exercises, especially if their background in number sets is limited. A list of possible 
references is included at the end of each section. These references will also pro- 
vide additional problems for your better students. 


The degree of difficulty of the material is dependent upon the amount of assist- 
ance which you choose to provide. With no assistance, the better student should 
be challenged. However, given a good deal of assistance, any second year algebra 
student should be able to work out the exercises with no great difficulty. The level 
of the material is determined by the assumption that students taking second year 
algebra will be quite capable as a group. 


The Student Book provides text material and programming exercises for the stu- 
dents. There is a problem analysis, including a suggested approach and a macro 
flow chart, for each exercise. The Teacher’s Advisor contains an example of a 
program to solve each exercise, micro flow charts, and a brief discussion of the 
important elements of the exercise. The micro flow charts should be given to the 
students only after they have made an attempt to solve the problem on their own. 
For best results, you should study all the solutions until you are certain you have 
a complete grasp of the general methods. This should be done before assigning the 
material to the class. 
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You will undoubtedly think of different programming methods or techniques as 
you study the example programs. Encourage the students to do the same. There 
are no approved solutions. All solutions are acceptable if they produce the correct 
results. At this level, there is no need for emphasis on the efficiency of a student’s 
program. The important question is, does it work? 





INTEGERS 


EXERCISE 1 — Finding the Greatest Common Divisor 


The loop indicated by (a) assigns subscripted variables to the integers in the set. 
The loop marked (b) selects the possible divisors of the set, the integers 1 through 
any number in the set. We pick the first number of the set as the upper limit 
of the possible divisors. If N;/D is equal to the integer part of N;/D, then we know 
that D is a divisor of N;. The loop marked (c) determines if a possible divisor 
divides all integers in the set. 


Micro Flow Chart 


START 





INPUT 
GIVEN SET OF INTEGERS 
k <— NUMBER 
OF INTEGERS IN GIVEN SET 


{a) 
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(b) 














OUTPUT 
“SET OF INTEGERS 

IS RELATIVELY 
PRIME” 


OUTPUT 
“g.c.d. IS x" 
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Example Program 


Exercise 1. 


10 REM--A PROGRAM TO DETERMINE IF INTERGERS OF A SET ARE RELATIVELY 
28 REM--PRIME. 

30 INPUT K 

48 FOR I=1 TO K 

5@ READ NCI) 

60 NEXT I 

70 FOR D=1 TO NC1) 

8@ FOR I=1 TO K 

96 IF NCII/D#INTCNCEI/D) THEN 128 

100 NEXT I 

110 LET X=D 

120 NEXT D 

13@ IF X=1 THEN 162 

140 PRINT "“GeC.De- IS'3xX 

158 GOTO 188 

160 PRINT “SET OF INTEGERS IS RELATIVELY PRIME." 
178 DATA 91 52651695286 

180 END 


RUN 


24 
GeC.-DeIS 13 


DONE 


178 DATA 71525151495353 
RUN 


24 
SET OF INTEGERS IS RELATIVELY PRIME. 


DONE 


EXERCISE 2 — Using the Euclidean Algorithm 


This problem is a good problem to demonstrate how the repetitive process of an 
algorithm is symbolized for programming purposes. The student should be able to 
write the program after careful study of the macro flow chart and the discussion 
in the Student Book. The student should recognize that the algorithm is applied 
in the following way: 


(1) a< first integer in given set, b <— second integer in given set 
(2) Output g.c.d. of aand b 


(3) a< ged. ofaand b, b < next integer in given set 
(4) Goto (2) 
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The flow chart explains the procedure used. In the box labeled (a), the integral 
part of the quotient, q, for each a/b is determined and the remainder, r, is com- 
puted. Note that at(b) the entire set is labeled relatively prime if any two numbers 
being tested are found to be relatively prime. 


Micro Flow Chart 


START 


k <- NUMBER OF INTEGERS GIVEN 
a < ist INTEGER GIVEN 
b < 2nd INTEGER GIVEN 


c < 2 (COUNTER TO DETERMINE WHEN 
ALL INTEGERS OF SET HAVE BEEN 
CONSIDERED) 











q < INT(a/b) 


r<a-qXb (a) 










OUTPUT 
“GIVEN INTEGERS 
ARE RELATIVELY 
PRIME’ 






(b)} 








a<b 
b <— NEXT GIVEN 
INTEGER 









OUTPUT: 
“*g.c.d. IS b” 





STOP 


10 





Example Program 


Exercise 2. 


i REM--A PROGRAM TO DETERMINE IF A SET OF ELEMENTS ARE RELATIVELY 

© REM--PRIME BY APPLYING THE EUCLIDEAN ALGORITHM. ON THE DATA LINE 
3 REM--ENTER THE NUMBER OF INTEGERS IN THE SET FOLLOWED BY THE INTEGERS 
4 REM--IN THE SET 

S DATA 4571525151493353 

16 READ KsA>B 

28 CH=2 

30 Q=INTCA/B) 

40 R=A-Q*B 

50 IF R=1 THEN 166 

66 IF R=0@ THEN 1808 


70 A=B 
88 B=R 


90 GOTO 308 

190 IF C=K THEN 14@ 

1605 C=C+l 

110 A=B 

120 READ B 

138 GOTO 30 

140 PRINT "G.C.D.-IS"3B 

156 GOTO 1728 

160 PRINT “GIVEN INTEGERS ARE RELATIVELY PRIME" 
176 END 


RUN 


GIVEN INTEGERS ARE RELATIVELY PRIME 


DONE 


29 DATA 4539152631695286 


RUN 


GeC.D-IS 13 


DONE 
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EXERCISE 3 — Prime Numbers 


Students should be able to complete this exercise without much assistance. Any 
questions will probably involve where to start their search and when to stop. We 
start with n = 2 because 2 is not considered a prime number. Our first divisor is 2, 
because every prime number has I as a divisor. We can stop when the divisor is 
greater than,/n, since any divisor of n must also bea divisor of.,/ n(n = a* =a Xa; 
therefore any divisor of n is necessarily a divisor of a). 


START 


OUTPUT 
n= 2{FIRST 


Micro Flow Chart 


PRIME NUMBER) 





pare Ea 
NO 


YES 


a RK 2 


OUTPUT 
VALUE of n 





Example Program 
Exercise 3. 


5 REM--A PROGRAM TO FIND ALL PRIME NUMBERS FROM 1 TO 500. 


18 N=e 
15 GOTO 7@ 
20 D=e 


36 IF N/D=INTCN/D) THEN 88 
46 IF D>SQRC(N) THEN 76 

96 «=6D=D++1 

66 GOTO 38 

70 PRINT N35 

80 IF N=50@ THEN 116 

90 N=N+] 

188 GOTO 28 

1180 END 
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RUN 
C 3 S 7 11 13 17 19 23 29 31 37 
4) 43 47 93 29 61 67 71 73 79 83 89 
97 181 103 107 109 113 127 131 137 £39 149 151 
157 163 167 173 179 181 191 193 197 199 211 223 
227 oeg 233 29 241 251 237 263 269 ett 277 28 i 


283 293 387 311 313 ait 331 337 347 349 353 359 
367 313 319 383 389 397 401 409 419 421 431 433 
439 443 449 457 461 463 467 479 487 49 1 499 


EXERCISE 4 — Determining Prime Numbers by “Sieve of Eratosthenes’’ Method 


This problem requires the student to abstract an algorithm from the simulation of 
a given process. Make sure that your students actually use the “Sieve of Eratos- 
thenes”’ method, i.e., eliminating multiples of each successive prime from 2 tof n, 
where n is the last integer in the set. 


The flow chart below illustrates the correct application of this method. The loop 
marked (a) determines all multiples of a particular prime and sets them equal to 


zero. Lach time the set is printed, elements equal to zero are omitted. 


Micro Flow Chart 


START 












Ali) <2 ton 
i=1to n-1 


OUTPUT 
Ali), i= 1 to n-1 









1) 
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A(j)/Ali) = 
INT(AG)/ACi)) 


OUTPUT 
ALL NON-ZERO 
INTEGERS 
REMAINING 
IN SET 





14 










— ane 


YES 


(a) 


STOP 
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Example Program 


Exercise 4. 


18 REM--A PROGRAM MODELING THE SIEVE OF ERATOSTHENESe INPUT THE 
26 REM--LARGEST NUMBER IN THE SIEVE. 

38 INPUT N 

40 DIM A200] 

96 FOR I=1 TO N-! 

60 LET ACI ]=!+1 

70 PRINT ACI]3 


88 NEXT I 
98 PRINT 
100 PRINT 


110 LET 1I=0 

120 LET J=I+} 

125 IF ACYIJ>SQRC(N) THEN 289 
130 LET J=I 

146 IF ACI) <> @ THEN 160 
156 GOTO 126 

166 J=J+l 

170 IF ACJI/ZACII=AINTCACJI/ZALIIJ> THEN 198 
18@ GOTO 260 

198 ACJ1=0 

266 IF J<N-1 THEN 168 

210 PRINT 

226 PRINT 

236 FOR K=1 TO N-1 

240 IF ACKI=0 THEN 268 

250 PRINT ACK]3 

268 NEXT K 

278 GOTO 128 


286 END 
RUN 
238 
2 3 4 5 6 7 8 9 10 11 12 13 
14 1S 16 17 18 19 28 21 22 23 24 25 
26 27 28 29 38 
2 3 > 7 9 1] 13 15 17 19 21 23 
25 27 29 
2 3 3 7 11 13 17 19 23 25 29 
2 3 5 7 11 13 17 19 23 29 
DONE 


15 


MATHEMATICS 
Hewlett-Packard Computer Curriculum 





EXERCISE 5 — Determining Perfect Numbers 


This problem introduces the student to interesting related concepts, i.e., Mersene 
Primes and Amicable Numbers. Hopefully, the student will be inspired to investi- 
gate some of the ideas he will come across when he consults the suggested references. 


Micro Flow Chart 


START n = NUMBER BEING TESTED 
c = COUNT OF # FACTORS FOUND 
s = SUM OF FACTORS FOUND 
d = POSSIBLE FACTORS OF n 


#(1),f(2),... f(c) = ALL FACTORS OF n 


avo 
tt t 
=c0 





= 


n+n+1 


OUTPUT 
f(1),f(2) ... fle}, n 


STOP 





16 
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Example Program 
Exercise 5. 


> REM--A PROGRAM TO FIND ALL PERFECT NUMBERS LESS THAN OR EQUAL TO 580. 
10 DIM FC(50) 

28 FOR N=2 TO 508 

30 LET C=0 

46 LET S=@ 

596 FOR D=1 TO N/Z2 

66 IF N/D=INTCN/D) THEN 116 


76 NEXT D 
86 GOTO 158 
998 NEXT N 


100 GOTO 230 

110 LET C=C+1 

1260 LET F(CIJ=D 

130 LET S=S+D 

142 GOTO 78 

15@ IF S=N THEN 170 
168 GOTO 98 

170 FOR I=! TOC 
180 PRINT FCIIJ3%s"'3 
190 NEXT I 

200 PRINT “ARE FACTORS OF THE PERFECT NUMBER"'N 


210 PRINT 

228 GOTO 98 

230 END 

RUN 
1 » 2 » 3 2»ARE FACTORS OF THE PERFECT NUMBER 6 
1 » 2 » 4 » 7 » 14 »ARE FACTORS OF THE PERFECT NUMBER 28 
1 2 2 » 4 » & » 16 » 31 » 62 » 124 » 248 $ 


ARE FACTORS OF THE PERFECT NUMBER 496 


DONE 
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EXERCISE 6 — Finding Pythagorean Triples 


Have students research why Pythagorean triples (x,y,z) must meet the relationships 
x =m? -—n*, y=2mn, and z =m? +n*, mand n positive integers, m > n. 


Micro Flow Chart 


C = COUNT OF PYTHAGOREAN 
TRIPLES FOUND 


o3 3 
t t t 
O-N 


x<« m -n’ 
y <— 2mn 
z<m +n? 


YES 


n<nt+i 


NO Con cD 
YES YES 
m<-_ mt 
n<1 


STOP 


18 
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Example Program 


Exercise 6(a). 


9 REM--A PROGRAM TO FIND PYTHAGOREAN TRIPLES- 


19 M=e2 
eo 0 60N=] 
38 C=8 


40 X=Mt2-Nte 

5Q@ Y=2*M*N 

60 Z=Mt24eNte2 

70 IF Xt2@+Yrt2=Zte THEN 142 
82 LET N=N+1 

90 IF N=M THEN 118 

102 GOTO 48 

110 LET M=M+i1 

120 LET Nel 

125 IF N=M THEN 98 

138 GOTO 40 

140 C=C+rli 

158 PRINT “C'SMS SNS TCT SX Se SVS SLED 
160 IF C=100 THEN 18@ 

178 GOTO 8@ 

180 END 


RUN 


¢€ 2 sil aC 3 » 4 » 3 ) 
€ 3 » 1 »€ & » 6 » 18 ) 
( 3 » 2 »¢ S » le » 13 > 
¢ 4 » 1 »C +F5 » 8 » 17 ) 
( 4 » 2 »¢ 12 » 16 » 28 > 
( 4 » 3 »€ 7 » 24 » 25 ) 
¢« 5 a | € 24 » 10 » 26 ) 
¢ 5 2 2 ¢ 21 » 26 » 29 ) 
¢ 5 » 3 »¢ +16 » 38 » 34 ) 
¢ 5 » 4 an) » 48 a» 41 ) 
€ 6 » 1 »€ 35 » 12 a 37 } 
€ 6 » 2 ¢ 32 » 24 » 48 ) 
€ 6 a» 3 »€ 27 » 36 » 495 ) 
¢ 6 » 4 »€ 28 » 48 » 2 ) 
€ 6 a) »€ 11 » 68 » 61 ) 
€ 7 » 1 »€ 48 » 14 » 58 > 
€ 7 2 »€¢ 45 » 28 » 533 ) 
¢ 7 » 3 »€ 48 » 42 » 58 ) 
€ 7 » 4 € 33 » 36 2 695 > 
€ 7 » 3 »€ 24 » 10 » 714 ) 
( 7 » 6 1€¢ «13 » 84 » 85S ) 
C 8 » 1 1€ 63 » 16 » 65 ) 
¢ 8 » 2 »€ 6@ »s 32 » 68 ) 
C 8 e.3 »€¢ 55 » 48 » 73 ) 
¢ 8 » 4 »€ 48 » 64 » 88 ) 
C 8 » 3 »¢ 39 » 88 »s 89 ) 
« 8 » 6 »€ 28 » 96 » 1008 ) 
€ 8 a 7 »¢ +15 » 112 » 113 ) 
« 9 » 1 »¢ 8B » 18 » 82 ) 
«( 9 » 2 Ie TT » 36 » 895 > 
Cc 9 » 3 »€ Te » 94 » 98 ) 
C9 » 4 »¢ 65 » 72 » 97 ) 
(9 2 5 »€ 56 » 9B , 

STOP 


19 
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Example Program 


Exercise 6(b). 


RUN 


VLA RAR RRA AN RN RRA RR ANNA 
BBR WN) 


+ 
OVMDNMNAAARVAKRUY 


Uv 


20 


REM--A PROGRAM TO FIND PRIMITIVE PYTHAGOREAN TRIPLES 


M=2 

N=1 

C=8 
X=Mt2-Nte 
Y=2*M*«N 
Z=Mt2+Nt2 


IF X?2+Y?2=Zte2 THEN 160 


LET N=N+1 


IF N=M THEN 120 


GOTO 5@ 
LET M=M+1 
LET N=1 
GOTO 5@ 
LET A=X 
LET BY 


Q=INTCA/B) 


R=A-Q*B 


IF R=1 THEN 256 


IF R=06 THEN 98 


A=B 

B=R 

GOTO 188 
C=C+1 


PRINT oe er Mee ne Nee per ee eet te gets 87 
IF C=100 THEN 298 


GOTO 98 
END 


MAN MNO KBDSKNHU= BNW DY — 


ve ©« & © © YY VY Ye Ve Bw B&B we Bw’ Ww & 


Ne eh 
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EXERCISE 7 — Denumeration of the Set of Positive Rational Numbers 


This exercise is another which requires that the student formulate an algorithm 
from the output pattern generated by hand. 


By reordering the terms in alternating segments (diagonals) of the sequence, we 
have a new sequence in which the terms in every segment are in increasing order: 


1/1 \ 1/2; 2/1 \ 1/3, 2/2--511 Va 4, 273,312,471 25 | 
| 1/5, 2/4, 3/3, 4/2, 5/1 | 1/6, 2/5, 3/4, ... 


If you look closer at this sequence, you see that the numerators within each seg- 
ment are increasing, while the denominators are decreasing. In general, then, we 
see that in segment s, the numbers are I/s, 2/(s — 1), 3/(s — 2)... (8s — 21/3, 
(s—1)/2, s/1. 


In the flow chart, note that a‘‘/’’b represents the value ofa “over” the value of 5, 
and a/b represents the quotient of a divided by b. 


21 
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START 


s <1 (SEGMENT NUMBER) 
c< t (COUNT OF RATIONAL 


i< 1 NUMBERS FOUND 





n(i) <— a/b 


OUTPUT 


c,a""/"’b 








22 


NO 






OUTPUT 
c, a‘ ot "b 


c<«-ct+1 
nic) < a/b 


YES 


STOP 
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Example Program 


Exercise 7a). 


1 DIM NC100) 
5S REM--A PROGRAM TO DEMONSTRATE THE DENUMERABILITY OF THE SET 
6 REM-- RATIONAL NUMBERS. 


10 »«§=6S=1 

26 {=1 

36 C=1 

40 A=l 

56 B=S 

55 NCIIJ=A/B 

66 PRINT C3A"/"B 
70 IF A=S THEN 1986 
86 Az=A+1 

996 B=B-1i 

i180 §6l=1 


110 IF A/B=NCI) THEN 70 
120 IF I=C THEN 150 


130 ==] +1 
148 GOTO 118 
150 C=C+1 


166 PRINT C3A"7/"B 

165 LET NCL(CIJ=A/B 

170 IF C=10@ THEN 238 
188 GOTO 70 


196 S=S+1 

200 A=!1 

218 B=S 

228 GOTO 190 

238 END 

RUN 

1 1 4) 
2 1 / 2 
3 2 si. 
4 1 / 3 
5 3 4A 
6 1 44 
7 2 / 3 
8 3 /2 
9 4 4 
12 1 75 
11 5 / 1 
12 1 / 6 
i3 2 25 
14 3 / 4 
15 4 / 3 
16 5 / 2 
17 6 44 
18 1 / 7 
19 3 15 
29 S / 3 
2] 7 y 1 
22 1 / 8 
23 2 47 
24 4 75 
25 5 / 4 
26 7 /2 
27 8 41 
28 1 49 
29 3 , 7 
38 7 43 
31 9 y. 
32 1 / 10 
33 2 79 
34 3 / 8 23 
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Exercise 7(b). 


RUN 


OUOANOoUBWNH— 


24 


DIM NC108] 

I=] 

REM--A PROGRAM TO DEMONSTRATE THE DENUMERABILITY OF THE SET 
REM-- RATIONAL NUMBERS. 

PRINT 130°7"*1 

NCI 3=071 

S=1 

I=] 
C=2 
A=] 

B=S 

NCC IJ=A/B 

PRINT C3A*/"B 

T=1[ +1 

PRINT C3"-"A"/"B 

IF A=S THEN 32@ 
A=A+] 

B=B-1 

I=] 

IF A/B=NCIJ] THEN 168 
IF IT=C THEN 248 
{=1+] 

GOTO 208 

C=C+] 

PRINT C3A"/"B 

LET NCCJ=A/B 


C=C+1 
PRINT C3*-"A"/'B 
NCC IJ=A/B 
IF C=10@0 THEN 368 
GOTO 168 
S=S+1 
A=1 
B=S 
GOTO 1908 
END 
4 1 
1 / 1 
- | 4 1 
1 4/2 
- | 4/2 
2 | 
- 2 ye | 
1 4 3 
- 1 4 3 
3 / 1 
- 3 | 
1 4 4 
ae | 4 4 
2 / 3 
- 2 7:3 
3 / 2 
- 3 4/2 
4 / 1 
- 4 / 1 
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EXERCISE 8 — Forming Rational Numbers, Using All Integers in a Given Real 
Number Interval 


This program is significant because it models the definition of a rational number. 
The student will have to deal with the condition that division by zero is not 
possible. 


Micro Flow Chart 


Part (a) 


START 
a<-7 
b <- -7 





OUTPUT 
a’“/"b 





a<ati 
b< -7 


25 





oe en 
( Q 
~NN NNN 


7 
7 
6 
6 

~6 

<3 


-7 
7 
7 
6 
6 
6 


REM--A PROGRAM TO FORM ALL POSSIBLE RATIONAL NUMBERS 
6 REM--USING THE INTEGERS OVER A GIVEN REAL NUMBER INTERVAL. 
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© 
~~ WwW ™ mm OO 0 
= « itoeee|gd 
= oozama 
ss ee ut 
SV) dD ; rN 
O S a =m es 
E o — non o*me 
< © amit ~aTOARN 
MZ hee 1 8 14 
= ~ ~ ee wxxXOa NNN NNN 
Lid Q a COonwtwWuZ 
= = > Km 22 
< s 3 z 
ageoeosad 5 =m ~~ 00 0 
= Ly hy Noe ANntnwoo © Dtetenet 


7-35 


-5 


/-2 


-2 
-2 
-2 


~1 


-2 


-3 
26 
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Micro Flow Chart 


Part (b). 


START 


a<-7 j<0O 
b<-7 c< 1] 


OUTPUT 
c, a“/"b 









NO 
OUTPUT 
c,a""/""b 
* 
n(c) = a/b 
a<-ati 
b < -7 





(*) For Part (c). Asection of flow chart will replace this flow chart between the *. 97 
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Example Program 


Exercise 8(b) 


5 REM-- A PROGRAM THAT WILL PRINT ALL MEANINGFUL RATIONAL 

6 REM-- EXPRESSIONS THAT CAN BE FORMED FROM THE INTEGERS OVER 
7 REM--A REAL NUMBER INTERVAL- EXPRESSIONS THAT HAVE THE SAME 
9 REM--VALUE AS SOME EXPRESSION ALREADY PRINTED WILL NOT BE PRINTED. 
10 READ AsBsCsJ 

15 DIM NC180] 

20 DATA -75-751 58 

46 PRINT C3A‘/"B 

46 LET N{C1=A/B 

28 LET B=B+1 

60 IF B=0 THEN 5@ 

65 J=8 

706 LET J=J+l 

88 IF A/B=NC JJ THEN 116 

90 IF J=C THEN 125 

188 GOTO 72 

110 IF B=7 THEN 178 

128 GOTO 5@ 

125 C=C+1 

130 PRINT CsA"/"B 

150 LET NCC)=A/B 

166 GOTO i110 

178 IF A=7 THEN 216 

180 LET A=A+l]I 

190 LET B=-7 

260 GOTO 66 


210 END 

RUN 
1 -7 /-7 
2 -7 1-6 
3 -7 2-5 
4 -7 4-4 
5 -7 /-3 
6 -7 f~2 
7 -7 f-1 
8 -7 4 1 
9 -7 4/2 
10 -7 fg 
i1 -7 , A 
12 -7 4/5 
130-7 / 6 
14. -7 47 
15 =6 f-7 
16 -6 1-5 
17-6 [-4 
18 -6 /-3 
19-6 /-2 

STOP 
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Micro Flow Chart 
Part (c). 


Insert the following flow chart section as indicated in flow chart of Part (b). 


YES 
* d < abs(b) “2 


a/d = 
d<d-1 INT {a/d) 


OUTPUT 


c,x""/"’y,a/b 





< x 
t 
; 
2 
oO 


YES 


* 


b/d = 
INT(b/d) 


YES 
x < x/d 
y<y/d 
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Example Program 


Exercise 8c). 


18 


RUN 


UAAN AUB ANH — 


REM--~A PROGRAM TO PRINT OUT IN REDUCED FORM AND DECIMAL FORM 
REM--ALL RATIONAL NUMBERS THAT CAN BE FORMED FROM THE INTEGERS 
REM --OVER SOME REAL NUMBER INTERVAL. 
READ AsBsC>J 
DIM NC100) 
DATA -75-75158 
PRINT C3A"/"B3A/B 
LET NCC1=A/B 
LET B=B+1 
IF B=8@ THEN 90 
J=0 
LET J=J+l1 
IF A/B=NCJ1] THEN 168 
IF J=C THEN 180 
GOTO 128 
IF B=7 THEN 3190 
GOTO 98 
C=C+] 
LET D=ABS(B) 
LET X=A 
LET Y=B 
IF D=1 THEN 288 
IF A/D=INTCA/D) THEN 2482 
LET D=D-1! 
GOTO 195 
IF B/D=INTCB/D) THEN 260 
GOTO 22a 
LET X=X/D 
LET Y=Y/D 
GOTO 228 
PRINT C3X"/"Y3A/B 
LET NCCIJ=A/B 


GOTO 168 
IF A=7 THEN 350 
LET A=A+1 
LET B=-7 
GOTO 108 
END 
-7 4-7 1 
-7 4-6 1.16667 
-7 4-5 1-4 
-7 4-4 1-75 
-7 4-3 2233333 
-7 /-2 325 
=-7 fm) 7 
-7 4 3 -7 
-7 / 2 “3-5 
-7 / 3 -2233333 
-7 4 4 -].75 
-7 / 5 -~1.4 
-7 / 6 -1-16667 
=| / 1 -1 
-6 4-7 857143 
-6 7-5 1-2 
-3 4-2 1-5 
-2 4-1 2 
-3 fi 3 
-6 /-\ 6 
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EXERCISE 9 — Rational Numbers Formed from a Random Set of Integers 


This problem is a more complicated case of Exercise 8. It illustrates that the 
magnitude of the rational number formed is determined by the relationship of 
numerator to denominator and the sign of each. Also, the idea of a decimal ap- 
proximation to a rational number is introduced. 


Micro Flow Chart 


START 


OUTPUT 
TABLE HEADINGS: “~1 < P/Q < 0”; TAB (25); “O < P/Q < 1°; TAB (50); “ABS(P/Q) > 1” 





INPUT 
9 RANDOM NUMBERS 


eee ae NOTE: TAB (X) INDICATES MOVING 
CARRIAGE TO Xth POSITION 
ON THE PAGE. 
c<-0 






ca 


NO 


c< Ct 
Nic] < P/Q 






OUTPUT 
TAB(S0O) 
P“’"/“G,P/Q 







OUTPUT 
TAB(25) 
P/"Q,P/Q 







OUTPUT 
P*“/"Q,P/O 
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Example Program 


Exercise 9. 

10 REM-- A PROGRAM THAT SEPARATES RATIONAL NUMBERS FORMED INTO 
20 REM THREE DIFFERENT CATAGORIES. 
36 PRINT "-1<P/Q<O"3TABC25)3"O<P/Q<1 "3 TAB(5Q) 3"ABS(P/Q)>1" 
40 DIM NC1001 

58 FOR 1=1 TO 9 

68 READ ALI) 

78 NEXT I 

8B DATA -165354550s-245-6379-19938 
90 LET C=6 

100 FOR I=! TO 9 

110 FOR J=1 TO 9 

120 LET P=ALCII 

130 LET Q=ACJI 

148 IF @=@ THEN 270 

158 LET C=C+1 

168 LET NC(C1=P7@ 

178 FOR K=1 TO C-1 

188 IF NCCIJ=NCK) THEN 270 

199 NEXT K 

208 IF -1<P/Q@ AND P/Q@<@ THEN 248 
218 IF @<P/@ AND P/@<1 THEN 260 

220 PRINT TAB(5@)3P3"/"3Q3P/Q 

238 GOTO 270 

240 PRINT P3"/"3Q3P/Q 

258 GOTO 270 

260 PRINT TABC25)3P3"7"3Q3P7Q 

279 NEXT J 

288 NEXT I 

299 END 
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RUN 
~1<P/Q<@ @<P/Q<] 
-16 7 45 -~-355556 
-16 4-24 
-~16 4-19 
~16 / 38 -- 421053 
3 4-16 -e1875 
3 4 45 
3 4-24 -e125 
3 4-6 -.5 
3 / 7 
3 4-19 -e157895 
3 / 38 
-24 4 45 - 2933333 
-24 4 38 -.631579 
-6 /~-16 
-6 7 45 -2133333 
-6 1-24 
-6 4 7 ~-857143 
-6 7-19 
7 4-16 -2 4375 
7 4 45 
7 1-24 ~e291667 
7 4-19 ~2- 368421 
7 / 38 
-19 4 45 ~2 422222 
-19 7-24 
38 4 45 
DONE 


°-666667 


«842105 


6-66667E-G2 


°428571 


7«89474E-G2 


°375 


©25 


315789 


©155556 


°184211 


°791667 


©844444 


ABS (P/Q)>1 


-16 
-16 


-24 


-24 


“19 
-19 


-19 


-19 


38 


38 
38 


7-16 
yr) 


oO 


b 


| oe | 
Ome Wea AND WD = 
naam DO 


~~N NN NON ON ONO ONS 
g 


ome am) ON 


~ NN 
oo 


1 
-5-33333 


2266667 
-2-28571 


-2.8125 
1S 
-~1.875 
-7.5 
6.42857 
~2-36842 
1.18421 
Q 
1.5 
-8 


4 


-3-42857 
1.26316 


-2 


233333 


-1-16667 


16-1875 
-6-33333 


3°16667 
“2.71429 
-2.375 

12-6667 


-1.-58333 
5- 42857 


Rational Numbers 
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EXERCISE 10 — A Rational Approximation of ./ n, n a rational number > 0 





Newton’s method (averaging) of finding the square root of a number has become 
the most popular square root algorithm used in algebra texts. Your students will 
appreciate the opportunity to use the computer to perform the tedious and cum- 
bersome arithmetic operations involved. 


In Parts (b), (c), and (d), it is important that your students understand the devel- 
opment of the equations defining the algorithms used in each program. The exer- 
cises themselves are subordinate to this understanding. Part (d) will be most valu- 
able if the students are expected to research the algorithm given for the solution. 


Micro Flow Chart 


Part (a). 











INPUT 
NUMBER n, WHOSE 
SQUARE ROOT IS DESIRED 









INPUT 
g. FIRST APPROX. 
TO J/n 


g< 1/2{g + n/g) 


YES 
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Example Program 


Exercise 10(a). 


36 


19 REM--A PROGRAM TO FIND THE SQUARE ROORT OF A NUMBER BY 
15 REM--NEWTON'S METHOD 

26 INPUT N»sG 

30 IF ABSC(N-Gt2)<.801 THEN 68 

40 LET G=(G+tN/G)/2 

45 PRINT G 

58 6GOTO 38 

60 PRINT “APPROXIMATE SQUARE ROOT OF"3N3"IS'SG 

76 END 


RUN 


2523 
2233333 
222381 
2223607 
APPROXIMATE SQUARE ROOT OF 5 IS 2.23607 


DONE 
RUN 


271655 
4.1 
4.00122 
4 
APPROXIMATE SQUARE ROOT OF 16 IS 4 


DONE 
RUN 


21633 
4.16667 
4.88333 
Ae 
APPROXIMATE SQUARE ROOT OF 16 IS 4. 


DONE 
RUN 


27255 
9.7 
856134 
8-48562 
8.48528 
APPROXIMATE SQUARE ROOT OF 72 IS 8.48528 


DONE 
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Example Program 


Exercise 10(b). 


18 REM--APROGRAM TO FIND THE CUBE ROOT OF A NUMBER USING 
20 REM--NEWTON'S METHOD. 

38 INPUT N»G 

40 IF ABSC(N-Gt3)<.8901 THEN 798 

SO LET G=(G4N/Gt2)72 

55 PRINT G 

60 GOTO 4@ 

70 PRINT “APPROXIMATE CUBE ROOT OF"SN3"IS'3G 

88 END 


RUN 


22755 
3-84 
2098879 
3-B89T79 
2.99515 
3-8B8244 
2099879 
3-80861 
269997 
3-888615 
2.99992 
3-80004 
2299998 

APPROXIMATE CUBE ROOT OF 27 IS 2499998 


DONE 
RUN 


2727 53 
APPROXIMATE CUBE ROOT OF 27 IS 3 


DONE 
RUN 


2-824 
1-75 
-~. 431 123 
-21.7364 
~190.8766 
“5.47214 
~2e86965 
-1.92056 
“2.84471 
-1.9791 
-2-81078 
-1e99469 
~2e88267 
-1.99867 
-2-00067 
-1.99967 
-2-89017 
-1.99992 
APPROXIMATE CUBE ROOT OF-8 15-1.-99992 


DONE 
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Example Program 


Exercise 10(d). 


S REM--A PROGRAM TO COMPUTE THE CUBE ROOT OF A NUMBER. 
10 INPUT N>o»G 

26 LET H=1/3*C2*G+4+N/Gt2) 

25 PRINT H3 

30 IF ABSC(N-Ht3)<-@801 THEN 60 

40 LET G=H 

58 GOTO 2¢@ 

68 PRINT “THE CUBE ROOT OF “3N3""IS'3H 

70 END 


RUN 


271632 
2.66667 2252778 2-51987 THE CUBE ROOT OF 16 IS 2.51987 


DONE 
RUN 


22795 
3+69333 3212201 3+06471 3-88001 THE CUBE ROOT OF 27 
IS 3-90061 


DONE 
RUN 


276357 
5«O9524 4.20572 399105 397989 3297906 
THE CUBE ROOT OF 63 IS 3-97986 


DONE 
RUN 


2-824 
205 1-24 ~-907638 -3-6421 -2-74205 -2-1827 
-2+81487 -2-800011 -2 THE CUBE ROOT OF -8 IS-e 


DONE 
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EXERCISE 11 — Incrementing Method for Finding \/ n, n Rational 


This problem is valuable in that it can serve as an introduction to the concept of a 
limit and the various root search methods used to find roots of polynomial 
equations. 


The variable c is kept and incremented if g ></n. Later it is tested for 0 to deter- 
mine whether the increment should be changed. 


Micro Flow Chart 









INPUT 
n, NUMBER WHOSE ROOT IS TO BE DETERMINED 
r, ROOT DESIRED 

g, INTEGER GUESS TO rth ROOT OF n 

t, TOLERANCE OF PRECISION DESIRED 






k < 1({FIRST INCREMENT TO BE USED) 
c<0O 










YES OUTPUT 


r ROOT 
OF niISg 


ABS (n-g") <t 


39 





MATHEMATICS 
Hewlett-Packard Computer Curriculum 





Example Program 


Exercise 1]. 


5 REM--A PROGRAM FOR FINDING THE RTH. 


6 R 


RUN 


7165 
5 
2e5 
2.5 
2-5 
2eD 
3 


DONE 
RUN 


281» 
2 


DONE 
RUN 


7.82 
01 
el2 
°15 
°15 
015 
2 


DONE 


40 


EM--ITERATIVE PROCESS. 
INPUT N»sRoGsT 
LET K=1 
LET C=O 
IF GtR>N THEN 120 
IF ABSC(N-Gt*R)<T THEN 160 
PRINT G3 
IF C=0 THEN 182 
LET C=@ 
LET K=K/1@ 
LET G=G+K 
GOTO 40 
PRINT G3 
LET G=G-K 
LET C=C+1 
GOTO 48 
PRINT R3"TH. ROOT OF “3N3"IS'3G 
END 


355s -801 
4 3 2 Qe} 202 
26 2e5 2-51 
11 2-eSi2 2e513 20514 
17 20518 20519 2-52 
192 2.5193 225194 205195 
THe ROOT OF 16 IS 2.5198 
4125-801 
4 THe ROOT OF 81 IS 3 
34225 -81,-00001 
1-81 9-99999E-83 ell 
013 714 e15 
| e152 0153 °152 
23 01524 ©1525 ©1526 
29 °153 ©1529 °15291 
THe ROOT OF .8234 IS 2.15294 


ROOT OF A NUMBER BY AN 


203 
2052 
20515 
20519 
225196 


221 
°16 
©1521 
©1527 
015292 


2e4 
2-51 
2-516 
22-5191 
22-5197 


11 
15 
©1522 
©1528 
015293 





EXERCISE 12 — Computing tn by a Probability Method 


The random number-probability approach to computing t, instead of a circle- 
related approach, is presented here since it ties in well with the students’ study of 
numbers. Encourage your students to have the computer print the approximation 
to mw after the selection of each pair of random numbers. This gives the student the 
opportunity to see that the successive approximations gradually approach the 
actual value of n, Different runs of the program will result in approximations 
sometimes approaching m as a lower bound, and other times approaching T as an 
upper bound. Consequently, the problem is a good introduction to the concept 


of a limit. 


Micro Flow Chart 







INPUT 
n, NUMBER OF PAIRS OF RANDOM 
NUMBERS TO BE CONSIDERED 


s< 0 (NUMBER OF PAIRS CONSIDERED WHICH 
ARE RELATIVELY PRIME 

f<O (NUMBER OF PAIRS CONSIDERED WHICH 

ARE NOT RELATIVELY PRIME 
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SELECT RANDOM 
POSITIVE 
NUMBERS a AND b 


q <— INT (a/b) 
r<—a-q*b 


a<b 
b<r 


Pp < SQR((6*s + 6*F)/s 


YES 
STOP 
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Example Program 


Exercise 12. 


1@ REM--A PROGRAM TO COMPUTE PI. 
20 LET S=6 

3@ LET F=@ 

4@ INPUT N 

58 FOR X=1 TON 

68 LET A=INTCRND(@)*19000) 
76 LET B=INTCRND(@G)¥*100@ > 
86 IF A=0 OR B=0@ THEN 2800 
96 IF A=1 OR B=1 THEN 2090 
1906 LET Q=INTCA/B) 

110 LET R=A-Q*B 

120 IF R=1 THEN 170 

130 IF R=@ THEN 226 

140 LET A=B 

150 LET B=R 

168 GOTO 108 

170 LET S=S+1 

180 LET P=SQR((6*S+6*F )/S) 
198 PRINT P3 

200° NEXT X 

210 GOTO 60 

220 LET F=F +1 

230 IF S=@ THEN 260 

248 GOTO 183 


258 END 

RUN 

728000 
2+ 44949 3-464} 3 2-828 43 316228 3+ 4641 
3224837 3-89839 3 2e9277 3-0706 3-20714 
333809 3224837 3-354] 324641 3.3665 3.4641 
3655983 365148 3-74166 3-63318 3+54196 3-464] 
3253553 3+680555 3253009 3°59 487 36592542 3- 4641 
3-49955 336067 3-41278 3-3665 3232455 3+28634 
3225137 3221926 3+26134 3-38289 3+34392 3+31006 
3227872 3-24962 3222252 3019722 3623179 326599 
324837 3.27327 3-+24834 32249 3-206282 322329 
3221131 31909 3-17157 3219926 3-1883 316228 
3218852 3221455 3-19628 3-17888 316228 3218651 
321856 3-19374 3-21714 3.20861 3218479 3-20714 
3222933 3221334 3223498 3+25648 3224837 32249 
322455] 326599 3-258 42 323544 3225511 3-27466 
32596 3-24509 322311 3224962 323583 325396 
3.27198 3225813 3-24473 326213 3-24893 3+23616 
3225297 3.2697 3+28634 3.38289 3228959 330584 
3-322 3-33809 332455 3-311 42 3-29869 328634 
338152 3-31663 3233167 323191 3.38688 3-295082 
3-28348 3.27226 3228634 3227525 32891 3-27815 
3626749 3228096 3229438 3-386774 3-32106 3233431 
3232317 3231231 3-30173 34-3145 3.38404 329383 
3+28387 3-27414 3+26464 3625537 3+26731 327921 
326991 3268681 3225192 3226343 3-«2749 328634 
3°27731 3228859 3229983 3229879 3-30188 3-29293 
3228416 327558 3.26717 3-25894 3.2695 3-28003 
3-27178 326369 3e274 3626599 3-25813 3-258 42 
3+24286 3¢25279 3224529 323793 3224767 3224037 
3-25 3-24276 325228 3-«26177 327124 3+2639 
3-25669 326599 3227525 3+26863 3-26893 3+25396 
3-24711 325666 32265 3-25813 3-26697 326015 
3225345 3.24685 3625548 3+26408 3e25747 3225897 
3225943 3-«25297 3-24662 3224837 323422 3222817 
3222221 3-21634 3222437 3.23238 3 «22649 3-23443 43 
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3.22858 
3.28822 
3028187 
3.18377 
3217851 
3019647 
301911 
3.18601 
3219185 
3.20802 
3218236 
3.18787 
3019317 
3.18868 
3216593 
3215338 
3215878 
30164 
3.16059 
3416559 
3417862 
3616707 
301717 
3216844 
3015776 
3014024 
301449 
3214943 
3215383 
3.15811 
3.15546 
3217312 
3216361 
3216897 
3.15202 
3014965 
3214736 
3215123 
3014897 
3215868 
3216228 
3216579 
3216922 
3416684 
3216453 

STOP 
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3222282 
3621581 
3+19668 
3217888 
3+°18544 
3-19172 
3619771 
3°19246 
3218748 
3-280362 
3-18835 
3219374 
3618916 
3+18479 
3-16228 
3-14989 
3215532 
3-16914 
316564 
316228 
3217529 
3217185 
3216853 
3616535 
3215478 
3213741 
3-14926 
3-14664 
3215166 
315537 
3215955 
32178038 
3216759 
3+16489 
321495 
3¢15345 
3214494 
3-14882 
3215261 
3216228 
3215992 
321693 
3+16689 
316455 
3.16228 


3e21714 
321037 
3219156 
3-+17406 
319236 
3219847 
3.28431 
319889 
319374 
319926 
3+18422 
3+18966 
3219489 
3-18893 
315866 
321552 
3+16054 
3616569 
3217068 
3216721 
3-17199 
3-16863 
3216539 
316228 
3015182 
3+14181 
3214643 
315691 
3015527 
315951 
3-16364 
3-16766 
3617157 
3-16228 
3-147 
3215896 
3214253 
3214643 
3215823 
3e15989 
3215757 
3216694 
3216458 
3216228 
316004 


3-2249 
3-21789 
3218651 
31693 
3219926 
3-2989521 
3°19965 
3+19438 
322 
3-19496 
3-19618 
3-¢19549 
3-+20061 
3-17712 
3-15508 
3615172 
3216575 
317081 
3-16729 
3-¢16392 
3+16873 
3-17338 
3217806 
3215924 
3-14889 
3213898 
315876 
3214813 
3215948 
3e¢16366 
316773 
3+16496 
3-16889 
3215968 
314452 
321485 
3-¢14814 
315809 
3-14787 
3615752 
3-1611 
31646 
3-16802 
3-16882 
3215782 


3221926 
3221248 
318153 
31646 
3-20615 
320845 
3219585 
3-20877 
3+-28624 
3219871 
3219612 
3.19142 
3219659 
3217335 
3-16848 
30157 
3217895 
3216737 
321723 
3+16882 
3216549 
3-17813 
3216692 
3215622 
3-14598 
314336 
314794 
3215238 
321567 
3+1609 
3-1718 
3-16228 
3+16623 
3.215711 
3.214833 
3214685 
3+14384 
3e14771 
3-151 48 
3-16109 
3216463 
3-16889 
316571 
3°¢15777 
3215561 


362137 

3-«20714 
318872 
3e17157 
3-209128 
3019574 
321985 

3-19628 
3-28182 
318651 
3219197 
3619722 
3219261 
316962 
3-15691 
316228 
3-16746 
316397 
316893 
3617373 
316228 
3-1749 

3617157 
3-15323 
321431 

3+14774 
3-14514 
321496 

3215394 
3215817 
3216906 
3.16628 
3+16359 
3¢15456 
3-15214 
3214362 
3214754 
3e15135 
3215588 
3°15872 
3216228 
3¢16575 
3-16914 
3-16115 
3215895 





